home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / ispell_bin.lha / ispell-3.1.18bin / interfaces / GUISpell-1.1 / rexx / ttx / WordSpell.ttx next >
Encoding:
Text File  |  1995-09-21  |  1.3 KB  |  45 lines
  1. /*
  2.  *  WordSpell.ttx ... ARexx Program to spell check a word while in TurboText
  3.  *  Requires ISpell version 2.1ljr (or later) with ARexx Server mode and TurboText
  4.  *  Started: 12/19/89
  5.  *  Updated for CED v2.0: Tue Jan 23 03:11:24 1990
  6.  *  Last update: Fri Feb  1 07:46:30 1991
  7.  *  Copyright (C) 1989, 1990, 1991  Loren J. Rittle
  8.  *  Use as you will, just document your changes and keep my copyright
  9.  *  notice intact.
  10.  *  Updated for TurboText: Tue May 14 02:29:33 1991 by Christopher A. Wichura
  11.  *  Reworked for GUISpell public release: Thu Mar 26 02:12:39 1992 LJR
  12.  */
  13. options results
  14. if ~show(ports, 'IRexxSpell') then
  15.   do
  16.     address command 'run <nil: >nil: ispell -r >nil: <nil:'
  17.     address command waitforport 'IRexxSpell'
  18.   end
  19.  
  20. GetWord
  21. item = result
  22.  
  23. GetCursorPos
  24. parse var result line column fold .
  25.  
  26. GetPort
  27. portname = result
  28.  
  29. address 'IRexxSpell' quickcheck item
  30. if result = 'bad' then do
  31.     if ~show(ports, 'GUISpell') then
  32.       do
  33.         address command 'run <nil: >nil: GUISpell <nil: >nil:'
  34.         address command waitforport 'GUISpell'
  35.       end
  36.     if ~show(ports, 'GUISpell') then
  37.       do
  38.     address 'GUISpell' checkcallbackhook 'rexx:ttx/WordSpellCallBack.rexx' portname line column fold item
  39.         address 'GUISpell' check item
  40.       end
  41.     else
  42.       beepscreen
  43.   end
  44. exit
  45.